﻿Public Class masreligion
    Private religionID = Nothing
    Private religionDESC = Nothing
    Private religionStatus = Nothing
    Private selectMasreligion = "SELECT `religion` as 'รหัสศาสนา',`religiondesc` as 'ศาสนา',`status` as 'สถานะการเปิดใช้งาน' FROM masreligion"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property religionID_ As Integer
        Get
            Return religionID
        End Get
        Set(value As Integer)
            religionID = value
        End Set
    End Property

    Property religionDESC_ As String
        Get
            Return religionDESC
        End Get
        Set(value As String)
            religionDESC = value
        End Set
    End Property

    Property religionStatus_ As Boolean
        Get
            Return religionStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                religionStatus = 1
            Else
                religionStatus = 0
            End If
        End Set
    End Property

    Property selectMasreligion_ As String
        Get
            Return selectMasreligion
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasreligionData()
        If religionDESC <> "" Then
            If TypeOf religionDESC Is String Then
                If connect.GetTable("SELECT religiondesc FROM masreligion WHERE religiondesc = '" & religionDESC & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลศาสนานี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim religionID As Integer

                        religionID = connect.ExecuteScalar("INSERT INTO masreligion (religiondesc, status) VALUES ('" & religionDESC & "', '" & religionStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASRELIGION (RELIGION, RELIGIONDESC, STATUS) VALUES ('" & religionID & "', '" & religionDESC & "', '" & religionStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลศาสนาเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัส Discharge นี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try

                    connect.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasreligionData()
        If religionID > 0 And religionDESC <> "" Then
            Dim connect As CONDB = CONDB.NewConnection()
            connect = CONDB.NewConnection()

            If TypeOf religionDESC Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE masreligion SET religiondesc = '" & religionDESC & "', status = '" & religionStatus & "' WHERE religion = '" & religionID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASRELIGION SET RELIGIONDESC = '" & religionDESC & "', STATUS = '" & religionStatus & "' WHERE RELIGION = '" & religionID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลศาสนาเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสศาสนานี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

End Class
